home *** CD-ROM | disk | FTP | other *** search
/ MacFormat España 8 / macformat_08.iso / mac / Demos / 100 Years of Motoring Demo / Support Files / Tech / Shared.Dir / 00918.ls < prev    next >
Encoding:
Text File  |  1995-03-16  |  392 b   |  14 lines
  1. on aniMateBack theCast, theClicks
  2.   set whichSprite to the clickOn
  3.   puppetSprite(whichSprite, 1)
  4.   set whichCast to the castNum of sprite whichSprite
  5.   set theFrames to whichCast - theCast
  6.   repeat while whichCast > theFrames
  7.     set the castNum of sprite whichSprite to whichCast
  8.     updateStage()
  9.     set whichCast to whichCast - 1
  10.     theTempo(theClicks)
  11.   end repeat
  12.   updateStage()
  13. end
  14.